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S ? 39:33 EMOUNT. SRC FCPDEF .MAR; 1 “i (2) 


5; $ 

: ; ASSORTED MACROS USED IN FCP CODE ; 

§ MACRO SET. IPL LEVEL ; SET PROCESSOR IPL (DUMMY NOW) 3 

0 60 , “ENDM = SETTIPL ; 

0 0 6¢ ; MACRO USED TO SIGNAL FATAL ERRORS (INTERNAL CONSISTENCY CHECKS). ; 

8 9 64 -MACRO BUG_CHECK CODE, TYPE, MESSAGE ; 

00 65 ALT ; SIMPLY CALL A HALT FOR NOW : 

00 66 .ENDM BUG_CHECK ; 

900 68 ; MACRO TO SIGNAL AN ERROR STATUS AND CONTINUE. ; 

$008 70 ° .MACRO ERROR CODE : 

0000 = 71 MOVL #CODE, USER_STATUS ; 

0000 es .ENDM ERR : 

0000 «73; ; 

44 fe ; MACRO TO SIGNAL AN ERROR STATUS AND EXIT. : 

0000 i: : .MACRO ERR_EXIT CODE ; 

0000 «7 MOVZWL CODE, -(SP) : 

0000 «= 78 HAL : UNTIL WE FIGURE THIS OUT F 

464 0 -ENDM = =ERR_EXIT : 

0000 81 : TYPE CODES USED TO IDENTIFY BLOCKS BEING READ BY READ BLOCK. : 

9000 Be ; NOTE THAT READ_BLOCK CONTAINS A TABLE INDEXED BY THESE CODES. ; 

00000000 0000 Bz ' HEADER. TYPE = 0 ; FILE HEADER : 
0000001 0000 85 BITMA = 1 : STORAGE BITMAP ; 

000000 000 86 BI RECTORY. TYPE = § : DIRECTORY BLOCK 3 

0000000 BOR ae INDEX_TYPE = : OTHER INDEX FILE BLOCKS : 
9000 89 : TYPE CODES USED TO IDENTIFY BLOCKS OF MEMORY REQUESTED FROM THE : 

000 30 ; ALLOCATOR. NOTE THAT THESE CODES INDEX INTO A TABLE IN ALLOCATE. ; 

00000000 0000 92 ° FCB_TYPE = 0 : FILE CONTROL BLOCK : 
00000001 0000 38 WCB TYPE = 1 : WINDOW BLOCK : 
| : 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND soriee 
ONLY IN me ANCE WITH THE TERMS OF SUCH phat a AND WITH THE 
INCLUSION OF THE ABOVE Sgt NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PRAHSPCRReSe NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: FTIACP STRUCTURE LEVEL 1 
ABSTRACT: 


THIS ROUTINE RETURNS THE BIT NUMBER PLUS ONE OF THE LEFTMOST BIT 
pet unnen ARGUMENT LONGWORD. IF THE ARGUMENT IS ZERO, ZERO IS 


ENVIRONMENT : 


STARLET OPERATING SYSTEM, INCLUDING PRIVILEGED SYSTEM SERVICES 
eee hose EXEC ROUTINES. THIS ROUTINE MUST BE CALLED IN 


AUTHOR: ANDREW C. GOLDSTEIN 2-FEB-78 14:53 


MODIFIED BY: 
v02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:40 
a Previous revision history moved to MOUNT.REV 
EQUATED SYMBOLS: 
ARG = 4 ; INPUT ARGUMENT 
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THIS ROUTINE RETURNS THE BIT NUMBER PLUS ONE OF THE LEFTMOST BIT 
SET IN THE INPUT ARGUMENT. 


CALLING SEQUENCE: 
CALL LEFT_ONE (ARG1) 


INPUT PARAMETERS: 
ARG1: RANDOM LONGWORD 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


BIT POSITION PLUS 1 
SIDE EFFECTS: 
NONE 


SoOoOoooooooooo: 
SOoooooooooooosoo oO 
COoOooooooocoo 
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000 -- 
00 

0000009 .PSECT $CODE$,NOWRT,LONG 
90 1 LEFT_ONE:: 

0000 000 é “WORD “M<> ; NO REGISTERS SAVED 
0 20 D0 000 MOVL #32.R0 : ASSUME NEGATIV 
09 04 AC IF €0 000 4 BBS #31 ARGCAP) ,10$ : BRANCH TO END IF NEGATIVE 
50 04 6E 00 CVTLD ARG(AP),RO : CONVERT TO DOUBLE FLOATING 
50 7 EF 000 6 EXTZV #7,#7,R0,RO : GET EXPONENT, LESS EXCESS 128 

04 01 97 10$: RET ; AND THAT'S ALL 
01 98 
01 99 
014 100 
0014 +101 END 


FUNCTIONAL DESCRIPTION: 
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LEF TONE - FIND LEFTMOST ONE BIT IN LONGWORD 16-SEP 0:59:43 VAX/VMS Macro v04-00 Pa 4 
Symbol table aie 382 62: 33: 3 EMOUNT. SRC LEF TONE .MAR; 1 a (2) 
1 = 4 
BITM = 
DIRECTORY. Pi ype : 
FCB _TYP = 
HEADER Type = 
INDEX TYPE = 
LEFT ONE 0 RG 01 
WCB_TYPE = 00000001 
$e ese ec een oem ee eee co 
: 5 _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 < 5-3 0O ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SCODES 00000014 (¢ 20.) O1¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
perme ees ee er Bem ome oe eee ae 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00: 9.97 00:00: Ag 
connend processing 1 0:00:00.78 00:00:04.8 
Pass BBR! 0.54 00:00:53.16 
Symbol table sort 0:00:00.0 ss Ses Sh 
39 0: 8:8 4 8 00:8 -00 
Symbol table output 3 0:00:00.0 8 : 888-06 
Psect synopsis output 1 0:00:00.0 0:00:00.1 
Cross-reference output 9 Q: te 00:00:00.00 
Assembler run totals 28 00:00:01.9 00:01:02.40 


The working set Limit was 900 pages. 

1849 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 8 non-local ~~ i i local symbols. 
195 source Lines were read in Pass 1, producing 11 object records in Pass 

4 pages of virtual memory were used to define 4 macros. 
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Macro Library name 


~$255$0UA28: pevs-08124 18. -MLB;1 
$255$DUA28:(SYSLIBISTARLET.ALB;2 

TOTALS (all Libraries) 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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